function IRF=TempFun_AugIRF(PP,SS,MODEL,EquJac,IRF)

for ii=1:MODEL.VarBlock.SH.Dim
    SH          =   MODEL.VarBlock.SH.VarList{ii};
    IRF.(SH)    =   IRF_Aug(PP,SS,MODEL,IRF.(SH));
    IRF.(SH).ConsDist ...
                =IRFAdd_ConsDist(PP,SS,MODEL,EquJac.HH_Aux,length(IRF.(SH).C),IRF.(SH));
end